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WHITE LIGHTNING 
CHEAT SHEET 


This sheet is intended as a supplement to the User Manual and is provided only to 
"get you started". The best way to use it is to type in the source code at the 
end of this section and execute the appropriate section as you go. You will need 
the demonstration sprites in memory but sprites 25 to 255 should be deleted to 
make enough memory available. A word to do this is: 


: CLRS 256 25 DO I SPN ! TEST IF DSPRITE ENDIF LOOP ; <CR> 
Type this in then type CLRS <CR> 


It is also worth deleting the large sprites 9, 12, 13, and 14 using: 


9 SPN ! DSPRITE <CR> 
12 SPN ! DSPRITE <CR> 
13 SPN ! DSPRITE <CR> 
14 SPN ! DSPRITE <CR> 


where <CR> means press ENTER. After execution CLRS should be FORGOTTEN using 
FORGET CLRS <CR> 


Following the example source there is a listing of a complete game. You won't be 
able to run it without the sprites but we can provide a tape with the source and 
sprites for one pound seventy five pence if you think it would be helpful. 


Creating Large Sprites 


Quite often in games writing large sprites are required which may extend across 
several screens. The sprite development software can produce sprites with 
dimensions of up to 15 by 15 characters. Larger sprites need to be constructed in 
the White Lightning itself. 


The sample listing for the Lunar Lander contains a routine which we can use as an 
example. The Sprite Development Program was used to produce 16 sprites, each was 
3 high by 8 wide, having sprite numbers 10 to 25. The following routine sets up 
sprite 128 which is 3 high by 128 wide, and then fills it with the 16 small 
sprites before deleting them to save memory. 


SCR#8 
QO : MAKE 128 SPN ! 3 HGT ! 128 LEN ! 0 SROW ! 128 SP2 ! ISPRITE 
1 16 0 DO I 10 + DUP SPN ! SPl ! I 8 * SCOL ! GWBIM GNATIM DSPRITE 


2 LOOP } 
Line 0 just defines the big sprite in memory and sets SROW to 0. 


Line 1 loops round 16 times with I taking the values 0 to 15. I 10 + calculates 
the sprite number of the smaller sprite and I 8 * calculates the column in the big 
sprite that this smaller sprite is to be put into. GNWBLM GWATIM moves the pixel 
data, then the attributes, fram the individual small sprites into the big sprite. 
You won’t be able to execute this example without the 16 3 by 8 sprites but it 
illustrates how big sprites are acheived. 


Moving Sprites 


The chief problem facing the programmer who wants to move sprites around the 
screen is choosing fran the numerous schemes available. We now consider same of 
these methods, each with its own merits for speed, simplicity, smoothness and 
storage. We'll begin with the easiest to implement and then work up to same of the 
more elaborate techniques. 


Screen Scrolling 


Where an object is to be moved within a screen window that does not contain any 
other objects the screen itself can be scrolled. This is particularly applicable 
where movement is either horizontal or vertical. Diagonal movement is also 
possible however. In some cases the object is constrained to move on the screen 
because parts of the object scrolled off the screen without wrap are lost. 


To begin with let's consider a very simple example - moving an invader (demo 
Sprite 24) 2 characters high and 2 characters wide left and right under keyboard 
control. 


The routine is in three sections: the first sets up the base and initial 
parameters, the second moves left or right and the third polls the keyboard and 
controls the movement. 


SETUP 0 COL ! 6 ROW ! 24 SPN ! CLS SETAM PUTBLS 2 HGT ! 32 LEN! ; 
LEFT WRLIV ; : RIGHT WRRIV ; 
KEYS 1 1 KB IF LEFT ENDIF 8 ] KB IF RIGHT ENDIF ; 


2e 08 00 


This will move the base by 1 pixel left or right but by changing the words LEFT 
and RIGHT to be WRR4V and WRL4V or WRR8V and WRL8V movement of 4 or 8 pixels can 
be achieved. 

To try these routines we'll need a small test routine. 

: TESTA ATTOFF SETUP BEGIN KEYS 8 2 KB UNTIL ; 

TESTA will loop around until SYMBOL SHIFT is pressed. Pressing CAPS SHIFT will 
move the base left, pressing space will move the base right and pressing SYMBOL 
SHIFT wil] exit the loop. 

This routine can also be executed in background using: 

: TESTB EXX SETUP EXX ' KEYS INT-ON ; 

To halt, just type INT-OFF, 

If you've typed in the source at the end of this section type 6 LOAD to compile 
and then TESTA or TESTB to execute. 


Simple Putting 


Another fairly simple means of moving sprites around the screen is to simply PUT 
sprites with a blank border around them. Suppose the sprite you want to move is 2 
characters high and 2 characters wide. You will need to construct a 4 by 4 sprite 
so that the 2 by 2 sprite can be contained with a border around the outside. Make 
sure background is off by typing INT-OFF. 


Suppose for example, sprite 24 is a 2 by 2 sprite {you can use demo sprite 24 for 


the purposes of this example). We'll use sprite 62 for the sprite to be moved. 
To set up sprite 62 use: 


2 


: MAKE 62 SPN ! 4 HGT ! 4 LEN ! TEST O= IF ISPRITE CLSM ENDIF ; 
This will create and clear sprite 62. Now use: 
1 SCOL ! 1 SROW ! 62 SP2 ! 24 SP1 ! GNBIM 


Sprite 62 is now set up ready for use. We now need four words to move the sprite 
UP, DOWN, LEFT and RIGHT. 


: UP 7 1 KB If ROW @ O > MINUS ROW +! ENDIF ; 
: DOWN 8 1 KB IF ROW @ 20 < ROW +! ENDIF ; 
: LEFT 1 1 KB IF COL @ 0 > MINUS COL +! ENDIF ; 
: RIGHT ] 2 KB IF COL @ 28 < COL +! ENDIF ; 


The ENTER and SPACE keys will move the sorite up and down and CAPS SHIFT and Z 
will move the sprite left and right respectively. 


The full word to animate the sprite becomes: 


: TESTC 62 SPN ! 10 COL ! 10 ROW ! BAGIN UP DOWN LEFT KIGHT ADJM PWBLS 6 1 KB 
UNTIL ; 


To exit TEST we press the key at 6 1, this is the "P" key. 


If you're using the source at the end of this section type 7 ‘OAM MAKE TESTC. The 
great limitation of this routine, however, is that data already on the screen will 
be replaced by the sprite being PUT and subsequently lost. Before considering the 
more sophisticated methods available to us which overcome this limitation let's 
just consider same simpler methods of circumventing this problem, which will work 
for similar situations. 


Supposing the screen holds half a dozen or so fixed objects and we wish to move 
the invader in the last example through these objects. 


First of all let's set up a screen with these objects scattered throughout. 
: SETUP 4 SPN ! 324563512 10 9 12 14 6 0 DO ROW ! COL ! PUTORS LOOP ; 


Notice that we use the PUTORS word to OR data to the screen; the reason for this 
will become clear. 


We'll now redefine UP, DOWN, LEFT and RIGHT so that sprite 62 is only 'PUT' if it 
is moved, the new code becames: 


: KCHK KB DUP ROT OR SWAP ; 

: UP 7 1 KCHK IF ROW @ O > MINUS ROW +! ENDIF ; 
: DOWN 8 ] KCHK IF ROW @ 20 < ROW +! ENDIF ; 

: LEFT 1 1 KCHK IF COL @ O > MINUS COL +! ENDIF ; 
: RIGHT 1 2 KCHK IF COL @ 28 < COL +! ENDIF ; 


The complete word becames: 


: TESTD CLS BEGIN COL @ ROW @ SETUP ROW ! COL ! 62 SPN ! @ UP DOWN LEFT RIGHT IF 
ADJM PWBLS ENDIF 6 1 KB UNTIL ; 


What is happening is that as soon as the moving sprite is PUT to the screen all 
screen data is immediately "“OR"ed so that if any was blotted out, it is 
immediately réplaced. Type "P" to exit. 


To use the source code listings type 8 LOAD TESTD 


More Advanced Techniques 


Often it is not practical to repeatedly PUT the screen data which accompanies the 
moving sprite and more frequently movement is required with a higher resolution 
than one character, 


To begin with, let's consider the problem of improving the resolution of the 
movement. Let's work again with a 2x2 sprite (sprite 24 of the demo sprites will 
do). Type COLD to clear previous examples. 


Suppose we wish to move the sprite around the screen with 2 pixel resolution, 
This means that between 2 successive columns there are 4 intermediate 
orientations, each successive orientation being 2 pixels right shifted. This 
means we need 4 sprites in all before the cycle is repeated at the next column 
position. 


To begin with let's set up the 4 sprites and number them 100, 101, 102 and 103. 
To create these 4 sprites, type: 


: MAKE 2 HGT ! 3 LEN ! 104 100 bO-I SPN ! ISPRITE CLSM LOOP ; 

This will define and clear the 4 sprites and we can now put the character in its 
various orientations, into these sprites. There are two stages to this operation. 
Firstly sprite 24 needs to be put into sprite 100, then sprites 100 to 103 need to 
be scrolled and PUT successively to build up the four orientations. 

: SET] 0 SROW ! 0 SCOL ! 24 SP1 ! 100 SP2 ! GNBIM ; 


This sets up sprite 100 and the remaining 3 orientations are set up fram this 
sprite using: 


: SET2 103 100 DO I SPl ! I 1+ DUP SP2 ! SPN ! COPYM WRRIM WRRIM LOOP ; 


It*s worth putting these sprites on the screen to,see what they look like. 
Assuming you've executed the words MAKE, SET] and SET2 use: 


: TESTE CLS 0 COL ! 4 0 DO TI 100 + SPN ! I DUP + ROW ! PUTBLS LOOP 8 0 AT ;: 


This will place the 4 orientations, one above the other, so that the resdlution of 
the movement can be seen. 


To use the source version type 9 LOAD MAKE SET] SET2 TESTE 


This now gives us 2 pixel horizontal resolution so that we now have 128 horizontal 
plotting positions in the range 0 to 127. We need a simple formula which will 
calculate the sprite number and the column fram the horizontal plotting position. 
This turns out to be very simple: 


: HPLOT 4 /MOD COL ! 100 + SPN ! PUTBLS ; 

So to PUT at X-position 27 (54 pixels fram the left hand column) just use: 

27 HPLOT 

The previous example is useful in that it indicates a way of producing high 
resolution PUTting but as it stands cannot be used for animation because it does 
not enable the removal of prevously placed orientations. Before looking at a 


scheme for animating these orientations let's generalise this example to cover 
high resolution vertical movement as well as horizontal movement. 


If we're going to give the same resolution of movement (2 pixels) in the vertical 
plane, we're going to need 4 vertically shifted orientations for each of the 
horizontally offset orientations - 16 sprites in all. . This time they will need to 
be 3x3 as opposed to the previously defined 2x3. If you've typed in the last 
example you'll need to delete the old sprites numbered 100 to 103. If so, type: 


100 SPN ! DSPRITE <CR> 
101 SPN ! DSPRITE <CR> 
102 SPN ! DSPRITE <CR> 
103 SPN ! DSPRITE <CR> 


Now type COLD to clear the dictionary. 
To create the 16 new sprites use: 
: MAKE 3 HGT ! 3 LEN ! 116 100 DO I SPN ! ISPRITE CLSM SETAM LOOP ; 


SET1 and SET2 are now used in exactly the same form as in the previous example to 
set up the first 4 sprites: 100 to 103. Each of the horizontally offset ) 
orientations needs to be vertically offset by 2 pixels into 4 further | 
orientations. 100 will be offset into 104, 108 and 112; 101 will be offset into 
105, 109 and 113 and so on. We'll need a third word SET3 to do this. 


: SET3 -2 NPX ! 104 100 DO I DUP 12 + SWAP DO I DUP 4 + DUP SP2 ! SPN! SP1! 
GWBIM SCRM 4 +LOOP LOOP ; 


Once SET1, SET2 and SET3 have been entered, compiled and executed, the definitions 
can be forgotten. Since we now have 2 pixel resolution in the vertical and 
horizontal directions we have 128 horizontal positions and 96 vertical positions. 
We need a word which can calculate sprite number, column and row from the 2 pixel 
resolution co-ords X and Y. The following word assumes the vertical then 
horizontal co-ords have been placed on the stack. 


: XYPUT 4 /MOD COL 1 SWAP 4 /MOD ROW | DUP + DUP + + 100 + SPN! ; 


So to PUT at X-position 30 (pixel 60) 
Y-position 17 (pixel 34) 


use 17 30 XYPUT PUTBLS 


Note that the 100 + SPN ! at the end of the definition of XYPUT should be amended 
so that the number is the sprite number of the first of your 16 gprites. 


To use the source type 9 LOAD 10 LOAD MAKE SET] SET2 SET3 (Ignore MSG# 4's) 
Let's now deal with the animation of the sprite itself. 


Perhaps the most powerful method of sprite animation is via the XOR operation. 

The usefulness of this operation stems from the fact that when an object is XOR'ed 
with the screen, the screen can be restored simply by repeating the operation. 

The area of screen is restored to the same state as it was before the first 
operation (see page 22 of the White Lightning manual). 


We can now write a routine which moves a sprite around the screen under keyboard 
control using a slightly amended form of the word XYPUT. The routine below 
assumes the 10 sprites in the range 100 to 115, which each have dimensions 3x3, 
have been set up in the last example. 


The following variables will be used. 


TSPN Temporary Value for SPN 
TCOL Temporary Value for COL 
TROW Temporary Value for ROW 
XC X co-ordinate 
YC Y co-ordinate 
FLAG Collision Flag 


We'll also use a constant FSPN which holds the number of the first sprite in the 
series of 16. To adapt these routines for your own use just change FSPN. 


PLOAD COL ! ROW ! SPN ! PUTXRS ; 

PSET TSPN @ TROW @ TCOL @ ; 

PCAL 4 /MOD TCOL ! SWAP 4 /MOD TROW ! DUP + DUP + FSPN + + TSPN ! ; 
MOVE YC @ XC @ PCAL PSET PUTXRS PLOAD ; 

PLACE YC @ XC @ PCAL PSET PLOAD ; 


ee et fe oe of 


We now need to poll the keyboard: 


We use the KCHK word again so that the character is not re-PUT unless a key has 
been pressed. 


: 
: 
oa 
eke! 


3 
> 
RIGHT 1 2 KCHK IF XC @ 115 < XC +! ENDIF ; 
KREAD 0 UP DOWN LEFT RIGHT ; 


KREA.) will leave 0 on the stack if no key was pressed or 1 if a key was pressed. 
The complete word becomes: 

: TESTF 10 XC ! 10 YC ! PLACE BRGIN KREAD IF MOVE ENDIF 6 1 KB UNTIL ; 

Note that this loop assumes no interference with the values of COL, ROW or SPN 
between cycles, if you are executing another Forth word, for example a word called 
TRY, then make sure you temporarily stack COL, ROW and SPN, e.g. 


--. BRGIN KREAD IF MOVE ENDIF COL @ ROW @ SPN @ TRY SPN ! ROW ! COL ! 6 1 KB UNTIL 


This word can be easily executed under interrupt using 


TESTG KREAD IF MOVE ENDIF ; 
TESTH 10 XC ! 10 YC ! EXX PLACE EXX ' TESTG INT-ON BEGIN 6 1] KB UNTIL INT-OFF 


=e 80 48 


You will notice, however, that if you do execute this routine under interrupt then 
the sprite may flicker in passage through certain areas of the screen. This is 
due to the finite time taken for the dot to scan the screen and can be very 
annoying, 


To execute from source type 11 LOAD 12 LOAD then TESTF or TESTH 


Let's look now at some more powerful techniques which not only help with the 
flickering but also include collision detection facilities. 


Collision Detection | 
To produce the smoothest movement of all, and include collision detection, a six 

stage operation is used. The technique utilises two dunmy sprites, and all 

intermediate stages of the operation are carried out in memory. For this example 

let's number the dummy sprites 116 and 117. To set up the sprites use: 

: MAKED 3 HGT ! 3 LEN ! 116 SPN ! ISPRITE 5 HGT ! 5 LEN ! 117 SPN ! ISPRITE ; 


This needs to be typed in and executed before executing the Source Code or error | 
MSG# 10 will be produced. 


The six stage procedure is as follows: 


| 
) 
1. The last orientation PUT, together with a one character surround, are GOT into ; 
the 5x5 dummy sprite. 


2. The last orientation is GNXRM'ed out of the 5x5, restoring the original screen 
data. 


3. The new orientation is COPYM'ed into the 3x3 dunmy. 


4. The screen data in the 5x5 is PWNDM'ed into the 3x3 and SCANM performed on the 
3x3 to detect any collision. A flag is set. 


5. The new orientation is GNXRM'ed into the 5x5 dummy. 
6. The 5x5 is PUTBLS'ed onto the screen. 


The code for this algorithm is the same as the previous example except that the 
word MOVE needs to be modified. 


Define Sprites as for previous example and execute MAKED then use: 

: STEP] -] COL +! +1 ROW +! SPN @ 117 SPN ! GETBLS ; 

: STEP2 1 SCOL ! 1 SROW ! 117 SP2 ! SP1 ! GNXRM ; 

: STEP3 116 SP2 ! TSPN @ SPl ! COPYM ; 

: STEP4 COL @ ~- SCOL ! ROW @ - SROW ! 117 SP2 ! 116 SP1 ! PWNDM 116 SPN ! SCANM 
: STEP5 SP1 ! GNXRM 117 SPN ! PUTBLS PSET COL ! ROW ! SPN ! FLAG @ IF 100 100 
BLEEP 0 FLAG ! ENDIF ; 

t MOVE YC @ XC @ PCAL PSET STEP1 STEP2 STEP3 STEP4 STEP5 ; 

To use the source code type COLD to clear all previous examples then: 

11 LOAD FORGET MOVE 14 LOAD 12 LOAD 13 LOAD 

to compile the words TESTF and TESTH. 


The Bleep will sound when the sprite collides with any other screen data. 


é2 
SO 8 


SETUP 0 COL ! 6 ROW! 245 
! CLS PUTBLS 2 HGT ! 32 LOW ! 
: LEFT WRL1V ; : RIGHT WRR1V 


p= oH 


: KEYS ] 1 KB IF LEFT ENDIF 
IF RIGHT ENDIF ; 

: TESTA ATTOFF SETUP BEGIN K 
8 2 KB WTIL ; 

: TESTB ATTOFF EXX SETUP EXX 
' KEYS INT-ON ; 


4 | 
MAKE 62 SPN ! 4 HGT ! 4 LE 
= IF ISPRITE CLSM ENDI 


1 SROW ! 62 SP2'! 2 
tea ge 

UP 7 1 KB IF ROW @ 0 > MIN 
US ROW +! ENDIF ; 

3: DOWN 8 1 KB IF ROW @ 20 < 
ROW +! ENDIF ; 

4: LEFT 11 KB IF OL@0>M 
INOS COL +! ENDIF ; 

5 : RIGHT 1 2 KB IF COL @ 28 < 
COL +! ENDIF ; 

6 : TESIC 62 SPN ! 10 COL ! 10 
ROW ! CLS BEGIN UP DOWN LEFT RI 
GHT 
7 ADJM PWBLS 6 1 KB UNTIL ; 


SCR # 8 

Q : SETUP 4 SPN! 3245 63 
5 12 10 9 12 4 6 0 DO ROW ! COL 
! 


1 PUTORS LOOP ; ; KCHK KB DUP 
ROT OR SWAP ; 

2 : UP 7 1 KCHK IF ROW @0>M 
INUS ROW +! ENDIF ; 

3 : DOWN 8 1 KCHK IF ROW @ 20 
< ROW +! ENDIF ; 

4; LEFT 1 1 KCHK IF COL @ 0 > 
MINUS COL +! ENDIF ; 

5 : RIGHT 1 2 KCHK IF COL @ 28 
< COL +! ENDIF ; 

6 : TESTD CLS BEGIN COL @ ROW 
@ SETUP ROW ! COL ! 62 SPN ! 

7 0 UP DOWN LEFT RIGHT IF ADJM 
PWBLS ENDIF 6 1 KB UNTIL ; 


SCR #9 

0 : MAKE 2 HGT ! 3 LEN ! 104 1 
00 DO I SPN ! ISPRITE CLSM LOOP 
1 : SET] 0 SROW ! 0 SCOL ! 24 
SP1 ! 100 SP2 ! GWBIM ; 


e 
e 


2: SET2 103 100 DO I SP1! I 
1+ DUP SP2 ! SPN ! COPYM WRRIM 

3 WRRIM LOOP ; 

4: TESTE CLS 0 COL! 40 D0I 
100 + SPN ! I DUP + ROW ! PUTBL 
Ss 

5 LOOP 8 0 AT ; 

6 : HPLOT 4 /MOD COL ! 100 +S 
PN ! PUTBLS ; 

7 


SCR #1 

sae sdkea + Bali oak 
00 DO I SPN ! ISPRITE CLSM SETAM 
1 LOOP ; 

2 : SET3 -2 NPX ! 104 100 DOI 
DUP 12 + SWAP DO I DUP 4 + DUP 


SP2 

3 ! SPN ! SPl ! GNBLM SCRM 4 
+LOOP LOOP ; 

4 : XYPUT 4 /MOD COL ! SWAP 4 
/MOD ROW ! DUP + DUP + +100 +5 
PN 

5) | heap 

6 

7 
SCR # 11 

0 0 VARIABLE TSPN 0 VARIABLE T 
COL 0 VARIABLE TROW O VARIABLE 
XC 


1 0 VARIABLE YC 100 CONSTANT F 
SPN 0 VARIABLE FLAG 

2 : PLOAD COL ! ROW ! SPN ! PU 
TXRS ; 

3 : PSET TSPN @ TROW @ TCOL @ 
4 : PCAL 4 /MOD TCOL ! SWAP 4 
/MOD TROW ! DUP + DUP + FSPN + + 


5 TSPN ! ; 

6 : PLACE YC @ XC @ PCAL PSET 
PLOAD ; 

7 : MOVE YC @ XC @ PCAL PSET P 


UTXRS PLOAD ; 


SCR # 12 

0 : KCHK KB DUP ROT OR SWAP ; 
1; UP 7 1 KCHK IF YC @ 4 > MI 
NUS YC +! ENDIF ; 

2: DOWN 8 1 KCHK IF YC @ 63 < 
YC +! ENDIF ; 

3: LEFT 1 1 KCHK IF XC @ 4 > 


MINUS XC +! ENDIF ; 

4; RIGHT 1 2 KCHK IF XC @ 115 
< XC +! ENDIF ; 

5 : KREAD 0 UP DOWN LEFT RIGHT 
6 : TESTF 10 XC ! 10 YC ! PLAC 
E BEGIN KREAD IF MOVE ENDIF 6 1 


KB 
7 UNTIL ; 


SCR # 13 
: TESTG KREAD IF MOVE ENDIF 


1 : TESTH 10 xC ! 10 YC ! EXX 
PLACE EXX ' TESTG INT-ON BEGIN 6 


2 KB UNTIL INT-OFF ; 


# 14 
0 : STEP] ~] COL +! -1 ROW +! 
SPN @ 117 SPN ! GETBLS ; 


NOTE 


1; STEP2 1 SCOL ! 1 SROW ! 11 
7 SP2 ! SPl ! GAWXRM ; 

2 : STEP3 116 SP2 ! TSPN SPl 

! COPYM ; 

3 : STEP4 COL @ - SCOL ! ROW @ 
- SROW ! 117 SP2 ! 116 

4 SP1 ! PWNDM 116 SPN ! SCANM 
FLAG +! ; 

& : STEPS SP1 ! GNWXRM 117 SPN 
! PUTBLS PSET COL ! ROW ! SPN ! 
6 FLAG @ IF 100 100 BLEEP 0 FL 
AG ! ENDIF ; 

7 : MOVE YC @ XC @ PCAL PSET S 
TEP] STEP2 STEP3 STEP4 STEPS ; 


Make sure that you delete the unwanted sprites 25 to 255, 9, 12, 13 and 14 BEFORE 
loading source code fram tape or the source code will over-run the sprites. 


LUNAR LANDER 


Variables 


PH Horizontal Phase of scrolling landscape 
SPD Horizontal Velocity of scrolling landscape 


DOWN Set to 1 if Lander crashes 
FU Remaining fuel 

XP Vertical Position of Lander 
VEL Vertical Velocity of Lander 
Sx Phase of X-Velocity dial 
SY Phase of Y-Velocity dial 
SFU Phase of Fuel Gauge 
LX 


Phase of Horizontal Position Dial 


Sprites 
NUMBERS HEIGHT LENGTH 
1 1 2 
3 5 
4-9 1 nl 
10-25 3 8 
26, 28,29, 31 1 1 
32,33 1 8 
43 3 3 
44 4 5 
65 3 3 
100 6 3 
101-107 6 3 
128 3 128 


DESCRIPTION 


POINTER 

LANDING PAD 

BLOCKS FOR LANDSCAPE SPRITES 
LANDSCAPE SECTIONS 

PANEL SPRITES 

MINI LANDSCAPE 

EXPLOSION 

LANDED LUNAR LANDER 

CRASHED LUNAR LANDER 

LUNAR LANDER 


LONAR LANDER ORIENTATIONS 
(CONSTRUCTED ) 

COMPLETE LANDSCAPE 
(CONSTRUCTED ) 


Sprites 1 to 100 are produced using the sprite generator program. Sprites 101 to 
107 aré created in the main program using the word SET. Sprite 128 is constructed 
from sprites 10 to 25 in the main program using the word MAKE. 

The Lunar Lander 

This listing is provided as an example of White Lightning programming. In order 
to run the game you will need to enter the sprites as described in the next 
section. This is a fairly laborious task so we can offer the fainthearted, 
sprites and demo on tape for one pound seventy five pence. We recammend, however, 
that you take the time to build up the sprites yourself as an excercise in self 
discipline if nothing else! 


The program executes one word in foreground and one word in background. The 
program can be roughly subdivided the following way: 


Screens 6,7,8 
These set up the screen display, dials etc. 
Screens 9,10,11 


These three screens form the routine which scrolls the landscape at one of three 
speeds. This routine is executed in background to give smoother movement. 


Screens 12,13,14,15,16,17 


These control the flight of the lander, manipulate the dials, execute the crashes 
and so on. 


Screen 18 


This executes all the previous definitions in the right order to produce the final 
game. 


Let's now look at the program in more detail. 


sc 


R#6 { 
iyo RR I es be sat) 8 Rt A me ee 
LEN ! 23 HGT ! 7 INK 1 BRIGHT ‘. t ' 
Pd ai rmt weg PERE SN 1 Oh tO | Por 
2: VISC COL 1 10 2 DO I RW! 4: BARST 14 23 31 PTST MIRM 1 
pice ha tera p id Gee ae 4 24 31 PTST MIRM 6 28 28 PTST 
eg, * Vv 5 19 16 32 PTST 19 24 33 PTST 
TSC MIRM 21 VISC 29 VISC MIRM ; P 
Meee Tere Oost fate) ae 6 : LETR 7 INK 0 PAPER 1 18 AT 
! PAPER SETAV 3; " FUEL" 0 26 AT " VERT 1 26 
5 : BARS 46 1 20 2 vicL 221 Pre : 
20 8 VICL 5 4 1 28 2 VICL Aine : 
6231 287 VICL 5116 16 14 NR i odio aera retge 
VICL ; i 
and SCR # 8 

0 : HRSC 32 16 DO 12 I 29 prer 
SCR #7 Lt 


0 : LND 6 COL ! 17 ROW! 44 SP 
N ! PUTBLS BEGIN 7 1 KB UNTIL 


1 20 ROW ! 43 SPN ! 7 COL ! 20 
0 DO PUTXRS 100 100 BLEEP Loop 


10 


PTST LOOP 16 16 1 PIsT 


se 


1 : MARK 152 159 PLOT 7 0 DRAW 
216 127 PLOT 7 0 DRAW 128 71 PL 
or 


2 0 ~7 DRAW ; 

3 : PANEL 0 PAPER COLOUR SCLE 
BARS BARST HRSC LETR MARK ; 

4 : MAKE 128 SPN ! 3 HGT ! 128 
LEN ! 0 SROW ! 128 SP2 ! ISPRIT 


5 16 0 DO I 10 + DUP SPN! Spl 
8 


oe * SCOL ! GWBLM GWATIM DSP 
RITE 
6 LOOP ; 
0 VARIABLE PH 


7 256 VARIABLE SPD 0 VARIABLE 
DOWN 1008 VARIABLE FU --»> 


SCR # 9 
0 : Sl 1023 AND 8 / COL!1L 
EN ! PUTBLS 16 LEN ! ; 


1: NBR PH@S1; 
: NBL PH @ 128 + Sl ; 
2 ; OPEN 0 PAPER 5 INK CLS 0 P 
H ! EXX 128 SPN ! 16 LEN ft 0 COL 


| 
HGT ! 21 ROW ! 0 SCOL ! 0 
PWBLS PWATTS 2 HGT ! EXX 
PAPER 1008 FU ! O BORDER ; 
SH8 PH @ DUP 7 AND 0= ; 
FUEL =~] FU +! ; 

SR SH8 IF NBR ENDIF ; 
SL SH8 IF NBL ENDIF ; 
SH4 PH @ DUP 3 AND 0= 
SF SPD +! +. 

SS SPD @ ; 


ee 


g 
be Ben Ss Sas FB! 


eo a8 66 ce 8 es of WwW 
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SCR # 10 
0 : POLL FU @ If 8 1 KB If Ss 
-252 > MINUS SF FURL ENDIF 

1 11 KB IF SS 256 < SF FUEL & 
NDIF ENDIF ; 

2: -P ~ PH ! POLL ; 

: +P + PH ! POLL ; 
3 : SR1 SR WRRIV 1 -P ; 

: SL1 SL WRLLV 1 +P ; 

4: SR4 SH4 IF SR WRR4V 4 -P E 
LSE SR1 ENDIF DROP ; 

5 : SL4 SH4 IF SL WRL4V 4 4P B 
LSE SL1 ENDIF DROP ; 

6 : SO DOWN @ IF ELSE SS ABS 2 
56 < If POLL ENDIF ENDIF ; 

7 : SR8 SH8 IF NBR WRR8V 8 -P 
ELSE SR4 ENDIF DROP ; -~> 


SCR # 11 

0 : SL8 SH8 IF NBL WRL8V 8 +P 
ELSE SL4 ENDIF ; 

1: UR SS 200 > IF SR8 ELSE SR 
4 ENDIF ; 

2.:,IR SS 7 > IF SR1 ELSE SOE 
NDIF ; 

3 : RT SS 100 > IF UR ELSE LR 
ENDIF ; 


4: UL SS -200 < IF SL8 ELSE S 
L4 ENDIF ; 

5 : LL SS ~? < IF SL1 ELSE SO 
ENDIF ; 

6: LF SS -100 < IF UL ELSE LL 
ENDIF ; 

7: DEC SS O< IF LF ELSE RT EN 
DIF + -—> 


SCR # 12 

0 : SET -1 NPX ! 3 LEN ! 6 AGT 
{ 107 100 DO I SPl ! [1+ pS 
P2 } 

1 SPN ! ISPRITE COPYM WCRM [0 
OP ; 

2 40 VARIABLE XP 8 VARIABLE VE 


3 : PREP 7 COL ! 0 DOWN ! 40 x 
bats a 

4 : TICK VEL @ 255 > IF ELSE 1 
VEL +! ENDIF ; 

5 : THRUST FU @ IF 7 1 KB IF V 
EL @ -252 > IF -4 VEL +! FUEL 

6 ENDIF ENDIF ENDIF ; 

7 --—> 


SCR # 13 

0 : MV VEL @ XP @ + DUP 5631 > 
IF DROP 5631 1 DOWN ! ENDIF DUP 
1 XP ! 32 / 8 (MOD 5 - ROW! 7 
AND 100 + SPN ! ROW @ O< IF Abo 
M 

2 PWBLS ELSE VEL @ 0< IF 1 SRO 
W! ROW @ 15 > IF 4 HGT ! ELSE 
3 5 AGT ! ENDIF ELSE 0 SROW ! 
5 HGT ! ENDIF ROW @ DUP SROW @ + 
4 ROW ! PWBLS ROW ! ENDIF ; 


SCR # 14 
0 : BANG DOWN @ DUP IF 19 ROW 
43 SPN ! ~5 NPX ! 7 HGT ! 3 LE 
! 


1 40 10 DO PUTXRS I 20 + I DO 
I BLEEP LOOP PUTXRS 17 ROW ! 

2 SCRV 19 ROW ! 5 +LOOP SS ABS 
8 <¢ IF 21 ROW ! 45 SPN ! PUTBLS 
3 ENDIF ENDIF XP @ 5631 = IF D 
OWN @ 0= IF 7 COL ! LND 7 COL ! 
MV 0 VEL ! ENDIF INT-OFF BEG 


! 
N 
J 


SCR # 15 
0 : LAND SS ABS 8 < IF VEL @ 3 


2 < IF PH @ 1023 AND 8 / CASE 12 
OF 
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1 OK ENDOF 13 OF OK ENDOF 30 0 
F OK ENDOF 31 OF OK ENDOF 58 OF 
OK 

2 ENDOF 59 OF OK ENDOF 91 OF 9 
K ENDOF 92 OF OK ENDOF ENDCASI: 

3 ENDIF ENDIF BANG ; 

4 128 VARIABLE SX 32 VARIABLE 
SY 63 VARIABLE SFU 

5 : XG SX +! 16 COL ! 13 RW! 
1 HGT ! 16 LEN ! ; 

6 : RSET] 7 COL ! 3 LEN! 3 

: WLEFT -1 XG WRRIV RSET1 

7 : WRIGHT 1 XG WRLI1V RSET1 

“> 


se =e 


SCR # 16 

0 : XVEL SPD @ 256 + 4 / SX @ 
~ DUP O< IF WLEFT DROP ELSE 0 
IF 

1 WRIGHT ENDIF ENDIF ; 

2 : YG DUP MINUS NPX ! SY +! 2 
7 COL ! 2 ROW! 8 HGT ! 1 LEN ! 


5 : YVEL VEL @ 256 + 8 / SY @ 
~ DUP 0< IF WUP DROP ELSE 0 > IF 

6 WDOOWN ENDIF ENDIF ; 

7 -> 


COLOUR 


SCR # 17 

0 : FVEL FU @ 16 / SFU @ - 0< 
IF 19 COL ! 2 ROW! 8 HGT ! 1 LE 
N! 

1 -1 NPX ! +] SFU +! WCRV RSE 
Tl ENDIF ; 

2 0 VARIABLE LX 

3. : MXG 18 ROW! 16 COL! 16 L 
EN ! 1 HGT! ; 
MLEFT MXG WRLIV -1 LX +! 
MRIGHT MXG WRR1V 1] LX +! 
5 : MON PH @ 8 / LX @ - DUP 0 
IF DROP MRIGHT ELSE 

6 O< IF MLEFT ENDIF ENDIF RSET 
7 


bs 


ee 08 oe 
=e te 


SCR # 18 

0 : OFF PANEL PREP ' DeC INT-O 
N BRGIN TICK THRUST MV MON XVEL 
1 YVEL FVEL MON LAND MON UNTIL 
INT-OFF ; 

2: TST 256 SPD ! O PH ! 1008 
FU ! 40 XP ! 8 VEL : 128 SK ! 

3 32 SY ! 63 SFU ! O LX ! OPEN 
ORF’; 


SHU > 


WORD DESCRIPTIONS 


Sets the attributes in the right hand half of the screen. 


VTSC 


Produces a row of sprites with the current sprite number at the column m the 
stack. Used to build up the gauges. 


SCLE 
Uses VISC to build up the gauges. 


VICL 


Sets up a specified window with specified attributes, 


BARS 


Uses VICL to set the attributes for the gauges. 
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LND 

This word controls the landing sequence. The landed sprite is Placed on the pad 
and sits until ENTER is pressed. The explosion is then produced beneath the 
lander to simulate take off and the landed lander is then exclusively OR'ed off of 
the pad. 


PTST 


General purpose word which sets ROW, COL and SPN fram the stack and then performs 
a 


e 


BARST 


Adds the finishing touches to the gauges by putting sprites 28,31,32 and 33 in the 
appropriate positions. Uses PTST. 


LETR 
Places the gauge titles above the gauges. 
HRSC 
Puts the horizontal scale on the screen. 
MARK 
Draws the indicators used in the gauges. 
PANEL 


Execution word to set up the whole right hand side of the screen ie. all previous 
words. 


MAKE 
See ‘Creating Large Sprites' 
$l 


Used to calculate the next column in the large landscape sprite, to be put to the 
screen. LEN is set back to 16 for the next operation. 


NBR 


Gets the appropriate column (calculated by Sl) when the landscape is moving 
right. ' 


NBL 
Gets the appropriate column when the landscape is moving left. 
OPEN 


Builds up the initial picture for the left of the screen. Notice the use of EXX 
to set up background variables for execution under interrupt. 


SH8 


PH describes the phase of the landscape with pixel resolution. SH8 checks to see 
if this phase is a multiple of 8 and if so sets a flag to indicate that a fresh 
column should be GOT fram the landscape sprite. PH is also left on the stack. 
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FUEL 

Decrements the amount of fuel left. 

na ’ 

Checks to see if a character boundry is crossex' (see SH8) and if so executes NER. 
SL 

As SR but checks when movement is left. 

SH4 

Checks to see if phase is crossing a half character boundary, scrolling can only 
increase fram one pixel to four pixel movements on such a boundary or scrolling 
will go out o. phase. 

SF 


Accelerates horizontal speed (deccelerates if negative) by the amount on the 
stack. 


Ss 

Puts the current horizontal speed on the stack. 

POLL 

Checks to see if there's any Fuel left (a non zero value of FU will act as a true 
flag) then first checks SPACE to accelerate right if not travelling too fast then 
check CAPS SHIFT to accelerate left if not travelling too fast. If a key is 
pressed fuel is decremented. 

=P 

Updates phase and does a POLL when moving right. 

+P 

Updates phase and does a POLL when moving left. 

SR1 

Moves landscape 1 pixel right and adjusts pointers. 

SR4 


Moves landscape 4 pixels right and adjusts pointers provided a half character 
boundary has been reached. If not, a further 1 pixel movement must be made. 


SL4 
As SR4 when moving left. 
= @) 


When speed is less than 7, keyboard is polled but no scrolling of the screen is 
executed. The lander is treated as horizontally stationary. 
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alt 


SR8 


+ 


Moves landscapes 8 pixels (1 character) right and adjusts pointers provided a full 
character boundary has been reached. If not a further 4 pixel scroll is 

executed. 

SL8 : 

As SR8 when movement is to the left. 

UR 


If speed is greater than 200, try and scroll right 8 pixels right, if not, try and 
scroll by 4 pixels right. 


LR 
If speed is greater than 7 then scroll 1 pixel right else no scroll. 
RT 

If speed is greater than 100 then do a UR if not do an IR. 

UL 

As UL when speed is negative. 

LL 


As LR when speed is negative. 


LF 
As RF when speed is negative. 
DEC 


The execution word which does all the scrolling logic. ‘The words UR to LF are 
effectively the nodes of a tree which produce one of 7 possible scrolls fram -8 
pixels to +8 pixels. A detailed understanding of the workings are not necessary 
as long as you can adapt the routine to serve your needs. 


SET 


Creates 7 new orientations of the lander fran the original in sprite 100, making 8 
in all, each lander being 1 pixel shifted vertically fram the one before. This 
enables single pixel resolution in the lander movement. 

PREP 

Used to set up initial valves. 

TICK 

Increments vertical velocity (acts like gravity) unless terminal velocity has been 


reached. If you want to make the game more difficult change 1 VEL +! to 2 VEL +! 
and thus double the planets gravity. 
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THRUST 


If the lander still has fuel and hasn't reached terminal upward velocity then 
increase upward velocity. 


MV 

A fairly complicated word which moves the lander vertically. The velocity is 
added to the position (physicists note that unit time has elapsed etc). If the 
lander goes under the base its position is put equal to the base and DOWN is SET 
to 1. The row and orientation are then calculated. 

BANG 


Another fairly involved word which executes a crash if DOWN=1. It checks to see 
if a safe landing was made and if not decides what sort of crash is required. 


OK 
A short word which sets DOWN to 0, indicating a safe landing. 
LAND 


If the lander has zero sideways velocity then vertical velocity and horizontal 
position are checked for a safe landing or a crash. DOWN is set accordingly. 


XG 

Updates X-VEL PHASE and sets window for scroll. 
RSET1 

Sets COL and LEN back after XG. 
XVEL 

Controlling routine for XVEL gauge. 
YG 

Used to adjust Y~-VEL gauge. 

WUP 

Move up Y-VEL gauge. 

WDOWN 

Move down Y-VEL gauge. 

YVEL 

controlling routine for Y-VEL gauge. 
FVEL 

Controlling routine for Fuel gauge. 


MXG 


Used to set up window for small screen movement. 


16 


SE GAT RN eeD eel nae TAL TRE o) Mak Butte he A cae PO TBS Rees TEA ea yh bw ak ein OS JR ND Ma Prey Walked Att Iu aha Tal 


a) 


MLEFT 

Move pointer left on small screen. 
MRIGHT 

Move pointer right on small screen. 
MON 

Control routine for scroll screen, 
OFF 

Main program loop. 

TST 

Final executions word. Initialises parameters and then executes main program 
loop. 

THE GAME ITSELF 

CREATION OF SPRITES 


Load up the sprite development package and create all the sprites listed in table 
: 


Once the sprite development package has loaded execute a cold start by pressing 
the C key and hit Y for yes and then N for the change buffer size prampt. 


Set the attribute switch to ] by pressing the A key and then 1. 


With reference to table 1 set the sprite number to the required value by pressing 
the S key and then inputing the required value. Input the dimensions, (Height and 
Length) of the sprite by pressing the H or C keys and then inputing the 
appropriate values. Set the respective ink, paper, flash and bright values using 
the X, C, V and B keys. 


Position the sprite screen X and Y pos cursors to their settings using the symbol 
shift 5,6,7 or 8 keys. 


Using the direct data input function, key D, input the 8 bytes of data. Move the 
X and Y pos cursors to the next position and input the data until the sprite is 
complete on the screen. Set both the X and Y position cursors to 1 and then GET 
the sprite into memory by pressing the G key. Clear the sprite screen by pressing 
symbol shift Q and then create the next sprite. 


_ CREATION OF THE 64x3 CHARACTER LANDSCAPE SPRITE 


This sprite will be made up of 8 8x3 character sprites, which will be joined 
together into one large sprite in the White Lightning program itself. 


Set the ink to 7, the paper to 0, the flash to 0 and the bright to 1 clear the 


CHR$ square by pressing the Q key. Using the sprites 4,5,6,7,8,9 and the CHR$ 
square (referred to as 0) build up sprites 10 to 25 as layed out in diagram l. 
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Position the X and Y Pos cursors to the appropriate co-ordinates. Input 
the relevant sprite number and put the sprite to the screen by pressing the 
D key and then 1. In the case of 0 press J to DUMP the empty CHRS square 
to the sprite screen. 


The landing pad, sprite 3, is also placed in these sprites. 


Once the 8 by 3 sprites have been created on the screen, position the X and 
¥ pos cursors to the top left corner of the sprite. Set the sprite number 
to the appropriate value, set the length to 8 and the height to 3 then 
press G to get the sprite. 


Note that the left hand column of sprite 10 must have a 0 INK value as well 
as the right hand column of sprite 11. 


Once all the sprites have been created save them off to tape using the 
symbol SHIFT S key. 


Load in White Lightning, load in the lunar sprites. Carefully type in the 


Lunar Lander program as listed and check your program against the original. 
It is now best to save your source off to tape. 


Exit to BASIC using: PROG <CR> 
then save to tape using: SAVE"LUNAR" CODE 52224,6656 
Go back into White Lightning using: PRINT USR 24836 
Now type 6 LOAD <CR> 
MAKE <CR> to create the landscape 
SET <CR> to create the landers 
To run the program type TST <CR> 
Please note that if there is an error in your source the last few screens 
can no longer be listed or campiled, since the creation of extra sprites 
has overwritten the end screens, thus the source would have to be reloaded 
for editing purposes. 
PLAYING THE GAME 
The game itself is more of a simulation than a game. The idea is to land 


on all four bases without running out of fuel or crashing. The gauges are 
self explanatory. 


The controls are: CAPS SHIFT Thrust. to the left 
BREAK SPACE Thrust to the right 
ENTER Vertical thrust 


Once the game is over, hit the ENTER key to escape and then TST <CR> for a 
new game. 


FUEL 
If fuel runs out the controls will no longer function. 


YVEL 


A safe landing is only made if the VEL gauge registers a velocity in the 
"safe" region of the centre of the gauge. 
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XVEL 


The horizontal velocity is represented by one of 3 scroll speeds but safe landings 
can only be made if the pointer is in the "safe" region in the centre of the . 
5 gauge. | 


THE SMALL SCREEN 
Sometimes cannot keep up with the lander movement but at scroll Speeds of a pixel 


it will soon “catch up" with the real positions. This is not a "feature" we must 
admit, keeping up with the gauge slows the foreground program down a lot. 


This gives a macroscopic view of the 8 screens. The bases are marked. The gauge | 
{ 
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TABLE 1 (Continued) 
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FLASH BRIGHT XPOS YPOS 


PAPER 
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SPRITE 
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TABLE 1 (Continued) 


ta} 


SPRITE 

45 

45 

45 

45 

45 
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DIAGRAM 1 
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SPRITE 12 


SPRITE 13 


SPRITE 14 


SPRITE 15 
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DIAGRAM 1 CONTINUED 
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SPRITE 18 


SPRITE 19 
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DIAGRAM 1 CONTINUED 
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SPRITE 23 


SPRITE 24 


SPRITE 25 


MICRODRIVE WHITE LIGHTNING 


INTRODUCTION 


In order to make maximum use of the Spectrum's 48k of memory the tape based White 
Lightning was located at 24832 decimal. This leaves room for a small BASIC loader 
program. If, however, interface 1 is fitted, the execution of any of the shadow 
ROM commands will cause BASIC to be relocated upwards and result in insufficient 
‘Memory for the tape based loader program. 


It was therefore decided, on campletion of the tape based program, to develop 
another version which would not only be microdrive canpatible but would also 
utilise the drives to campile source code. Unfortunately because of the way that 
the shadow ROM operates, the BASIC interface part of the software is no longer 
practical and therefore Microdrive White Lightning no longer has this feature. 
The editing buffers have now been moved up to occupy the old screens 6, 7 and 8, 

and an extra 1k of dictionary space iS now available. Source code is now canpiled 
directly from microdrives and so sprites can be stored from 53760 onwards. 

Microdrive screens 1 to 19 are utilised by the system but you can edit any of the { 
screens 20 to 1350. This means that Microdrive White Lightning can handle six 

times as much source code without any troublesome reloading fram tape. 

IMPLEMENTING ON MICRODRIVE 

i. Insert Tape 1 in your cassette and rewind to Side A. 


2. Type LOAD"" and when "MWL" has loaded it will auto-run, format your 
microdrive and save the BASIC loader and machine code. 


3. To run the microdrive version just type LOAD *"M";1:"MNL" and it will 

load and execute, 
PREPARING A CARTRIDGE FOR SOURCE CODE 
Before using the microdrive version it is necessary to set up 4 separate cartridge 
for storing and loading source code. This version has been designed to work 
exclusively with microdrive number 1. 
To set up the cartridge, insert it in microdrive 1 and execute the following: 


FORMAT "M";13"name":OPEN#4; "M"s15"a"s 
FOR I=] TO 100000: PRINT#4;CHRS 32 ; : NEXT I é 


Note the lower case "a" used in the filename. 


After several minutes, the error message "MICRODRIVE FULL" will be printed. You 
should now key in: 


CLOSE#4 
to close this file. To check that you have a correctly prepared cartridge, type: 
CAT 1 


"a" should be printed on the screen to indicate a single file called "a" and 0 to 
indicate zero bytes free. 
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Please note that this cartridge should be clearly labelled and used exclusively 
for SAVEing and LOADing Forth source code while you are editing Forth screens. 
Sprites, BASIC and blocks of machine code should be SAVEd on a separate cartridge 
or cartridges. There are no cammands within White Lightning to manipulate 
microdrives, therefore all such commands (e.g. FORMAT, ERASE, OPEN#) are executed 
from BASIC after exitting via the PROG command. 


EDITING FORTH SCREENS 


Forth source code is still EDITed in exactly the same way as the tape version 
(using EDIT,P,S,D etc.) except that EDIT will not automatically execute a FLUSH. 
This means that your EDITs will not be updated on microdrive until you type FLUSH, 
so be sure to remember to do this before moving on to another screen. 


THE EDIT BUFFERS 


To give some idea of how White Lightning uses the microdrives for Forth source, 
the following brief description may be helpful. 


There exists in RAM an area of 1024 bytes called the edit buffer, which can hold 
two 512 byte Forth screens. If you issue a command which requires the use of a 
screen (LIST, CLEAR or INDEX) then this screen will be read from the microdrive 
into the edit buffer. If the edit buffer already contains two screens and they 
have been altered in any way since they were last loaded, then they must first be 
saved (using FLUSH) back to the drive in order to allow the currently required 
screen to be loaded in. 


Note that before a screen is first edited it will need to be cleared using the 
CLEAR canmand as it will probably contain garbage. For example, before using 
screen 20 for the first time, type: 


20 CLEAR 20 LIST 


TRANSFERRING OLD SOURCE 

If you have already written a sizeable program with the tape based White 
Lightning, then you will want to transfer it to your microdrive based White 
Lightning without having to canpletely re-type it. To do this, use the 
following: 

1. Type OLD <CR>. 


2. Type PROG <CR> and load your old source code fram tape in the normal way. 
Then re-enter Forth as normal. 


3. Transfer each screen fran its old number in memory to its new number on 
the microdrive using: 


OLDSCREEN NEWSCREEN TRANS <CR> 


So, for example, to transfer the old screen 6 to microdrive screen 
25, use: 


6 25 TRANS <CR> 


If a bad sector is encountered you will get error message 8. Skip 
over this sector and try the next one (see next section on BAD SECTORS). 
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4. Finally type NeW <CR> to restore the editing buffers to their 

microdrive addresses. 
BAD SECTORS 
Regrettably, at the time of writing, whilst the microdrive cartridge costs about 
twice as much as a standard 5 1/4 inch floppy, the number of bad sectors is still 
extremely high. Forth screens map directly to microdrive sectors, so screen 25 
uses sector 25 and so on. So as we shall see, same screens May be unusable. 
A bad sector will be identified by White Lightning the first time a read or write 
Operation is carried out, and error 8 generated. Note that executing CLEAR will 
mean that you can find bad sectors before editing into them. If you do find a bad 
sector, keep a note of it and don't use that screen. There is a simple way around 
this problem as we shall see in the following example. Assume we want to edit 
into screens 25 to 28 and that we did the following: 
1. Type 25 CLEAR 0 EDIT 
2. Key in text for lines 0 to 6. 


3. Type 7 EDIT then key in --> to indicate continue with next screen when 
LOADing. 


4. Type in 26 CLEAR 0 EDIT. 
5. Key in text for lines 0 to 6. 
6. Type 7 EDIT and key in ~—>, 
Now suppose when we typed 27 CLEAR, that we got error 8, indicating drive error. 
This would mean that sector 27 was a bad sector and therefore that screen 27 was 
unusable. 
Remember that in screen 26 the last line was 

7~—> 
which tells Forth to continue LOADing on the next screen. The next screen is 
screen 27 which is unusable, so we have to change the last line of screen 26 to 
become 

7 28 LOAD 
which tells Forth to continue LOADing at screen 28. This will then skip over the 
bad sector. 
ADDITIONAL ERROR MESSAGES 
#3 = Incorrect Addressing Mode. 


# 7 = Stack overflow. 


# 8 - Microdrive read/write error (bad sector). 


— 
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SUMMARY OF MICRODRIVE WHITE LIGHTNING 


- i. Only use specially prepared cartridges for EDITing and use then 
' —s exclusively for storing screens. 


_ 2. CLEAR a screen before using it for the first time and change the 
previous screen to skip over it if it is a bad sector. Do not use 
this screen again. 


3. Microdrive commands such as ERASE, VERIFY etc. can be executed after 
entering BASIC using PROG. 


4, Do NOT break into the program (SHIFT and SPACE) while the microdrive 
is running. 


5. RESERVE no longer executes. 
6. There are some additional error messages (listed above). 


7. Always execute a FLUSH after editing of a screen is complete. 


_ THE MICRODRIVE SPRITE GENERATOR 


: _ INTRODUCTION 
~ The microdrive Sprite Generator Program is upwardly compatible with the current 
_ tape based version and tape LOADing and SAVEing is still supported. An extra 


~camand has been added to make the creation of large sprites easier and the arcade 
| Character set has been re-organised to give extra sprite space. 


y 4 The first thing to do is to transfer the program onto a microdrive cartridge. 
1. Insert Tape 1 in your cassette and rewind to Side A. 

ra 2. Type LOAD"": LOAD" "CODE 

§ 3. Place formatted cartridge in microdrive 1. 

4. Type GOTO 9998. 


, This will save and verify the generator onto the microdrive. Now type PRINT USR 0 
_ to clear memory. 


a ‘The microdrive version can now be LOADed and RUN by typing: 


LOAD we yet 213 ng" 


_ SAVING AND LOADING OF SPRITES 


| The microdrive version of the Sprite Development Program still allows sprites to 
be loaded and saved fram and to tape as described in the manual. 


A separate cartridge is required to store sprites. The program will allow you to 
Save five files of sprites per cartridge, these being numbered 1 to 5. 


Before a cartridge can be used to store sprites, it has to be specially formatted. 
This is done using the Sprite Generator Program by typing SYMBOL SHIFT F (TO). 
This will format the cartridge and set up five dummy files, numbered 1 to 5. Fram 
now on, whenever you save a file of sprites, the old file of that number will be 
erased to conserve cartridge storage space. 


For example, if you wished to save a file of sprites currently in memory, to file 
1, use: 


1. Type SYMBOL SHIFT S (save sprites). 

2. Type N (we don't want tape). 
; 3. Type Y (save to drive). 

4. Insert the formatted cartridge. 

5. Press any key. 

6. Type l (save to file 1). 

To load sprites just press SYMBOL SHIFT J and then felled the same sequence as 
that used to save. 

AVAILABLE MEMORY 

You have 13595 bytes available for sprites. Please note that the bottam 2816 


bytes, locations 51685 to 54501 are used to store the arcade character library 


accessed by the 'Z' key. If, by creating lots of sprites, you overwrite this area 
of memory, you should not try to access any of these characters. 


CREATION OF LARGE SPRITES 

The microdrive version of the Sprite Development Package allows the creation of 
large sprites (larger than the 15x15 screen) in memory. These sprites can be said 
to be empty when created and have to be filled by placing smaller sprites into 
them using the 'place sprite into sprite window' function (BREAK SPACE KEY). 


To create a large sprite hit CAPS SHIFT C and enter the dimensions as instructed. 


MERGING SPRITES FROM MICRODRIVE 


The actual microdrive file that contains the sprite data has the capital letter B 
after it (CHRS 66) such that, for example, the i ad data for sprite file '5' is 
file '5B'. 


So with reference to line 5 on page 81 of the White Lightning manual: to merge 
fran microdrive the  abrigae of sprite file 5 in White Lightning, exit to BASIC prety 
then type: 


LOAD *"M" ot 7"5B"CODE 


